home *** CD-ROM | disk | FTP | other *** search
/ Internet 53 / INTERNET53.iso / pc / software / windows / building / coldfusion studio evaluation / data1.cab / CFS_Wizards / CFML / DataEntry_EntryAction.wml < prev    next >
Encoding:
Text File  |  1998-10-08  |  1.2 KB  |  39 lines
  1. <CFINSERT dataSource="$${DataSource}" tableName="$${Table}">
  2.  
  3.  
  4. <HTML><HEAD>
  5.     <TITLE>$${ApplicationName} - Entry Action</TITLE>
  6. </HEAD><BODY bgcolor="ffffff">
  7.  
  8. <FONT size="+1">$${ApplicationName}</FONT> <BR>
  9. <FONT size="+2"><B>Entry was successfully submitted</B></FONT>
  10.  
  11. <TABLE>
  12. <WIZSET i = 0>
  13. <WIZLOOP index="CurrentField" list="$${EntryFields}">
  14.     <WIZSET i = i + 1>
  15.     <!---- field is in format 'sTable.sField=sType;nSize;bRequired' ---->
  16.     <WIZSET Separator1Pos = Find( CurrentField, '.' )>
  17.     <WIZSET Separator2Pos = Find( CurrentField, '=' )>
  18.     <WIZSET Separator3Pos = Find( CurrentField, ';' )>
  19.     <WIZSET FieldName = Mid( CurrentField, Separator1Pos + 1, Separator2Pos - Separator1Pos - 1 )>
  20.     <WIZSET FieldType = Mid( CurrentField, Separator2Pos + 1, Separator3Pos - Separator2Pos - 1 )>
  21.  
  22.     <!--- Field: $${TableName}.$${FieldName} --->
  23.     <TR>
  24.     <TD valign="top"> $${FieldName}: </TD>
  25.     <TD>
  26.     <WIZIF FieldType EQ 'BIT'>
  27.         <CFIF Form.$${FieldName} is 1> Yes <CFELSE> No </CFIF>
  28.     <WIZELSEIF FieldType EQ 'DATETIME'>
  29.         <CFOUTPUT>#DateFormat(Form.$${FieldName})#</CFOUTPUT>
  30.     <WIZELSE>
  31.         <CFOUTPUT>#Form.$${FieldName}#</CFOUTPUT>
  32.     </WIZIF>
  33.     </TD>
  34.     </TR>
  35. </WIZLOOP>
  36. </TABLE>
  37.  
  38.  
  39. </BODY></HTML>